home *** CD-ROM | disk | FTP | other *** search
/ Chip: 2001 Haziran / CHIP Haziran2001.iso / prog / haziran / 20 / setup.exe / {app} / plugins / XQ MSDOSSYS 2.xpl < prev    next >
Encoding:
XSetup plugin  |  2001-03-28  |  2.6 KB  |  103 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="4"
  4. "UIPATH 1"="Startup/Shutdown\Startup\Windows 9x/ME\10) Boot Menu"
  5. "NAME"="Advanced Options"
  6. "VERSION"="1.37"
  7. "OSVERSION"="10101"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Enable "Boot old MS-DOS version" in menu"
  10. "TEXT 2"="Enable "Safe mode with network" in menu"
  11. "TEXT 3"="Enable logging"
  12. "TEXT 4"="Load system files at top of 640 K"
  13. '"TEXT 5"="Start in "Safe Mode" on next boot"
  14. "DESCRIPTION 1"="Some boot-options for Windows 9x/ME."
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"=" "
  19. "COMMENT 2"=" "
  20. "COMMENT 3"="Thanks to David Goodenough (dpg@ix.netcom.com) for the fix"
  21.  
  22.  
  23. 'Declaration of some constants
  24. sF="C:\MSDOS.SYS"
  25. sO="OPTIONS"
  26.  
  27. 'Called when the Plugin is started
  28. Sub Plugin_Initialize
  29.   Call FileSetAttribute(sf,"S-")
  30.   Call FileSetAttribute(sf,"R-")
  31.   Call FileSetAttribute(sf,"H-")
  32.  
  33.   'Fix #1
  34.   'i=IniReadValue(sf,so,"MultiBoot")
  35.  
  36.   i=IniReadValue(sf,so,"BootMulti")
  37.   if i=1 then SetUIElement 1,true
  38.  
  39.   i=IniReadValue(sf,so,"Network")
  40.   if i=1 then SetUIElement 2,true
  41.  
  42.   i=IniReadValue(sf,so,"DisableLog") '//Undoc?!?!
  43.   if i=0 or IsEmpty(i) then SetUIElement 3,true
  44.  
  45.   i=IniReadValue(sf,so,"LoadTop")
  46.   if i=1 then SetUIElement 4,true
  47.  
  48.   'i=IniReadValue(sf,so,"BootFailSafe") '//Undoc?!?!!
  49.   'if i=1 then SetUIElement 5,true
  50. End Sub
  51.  
  52. 'Called when the Plugin should validate the Data the user has entered
  53. Sub Plugin_CheckData(ElementIndex)
  54. End Sub
  55.  
  56. 'Called when the Plugin should apply the changes
  57. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  58.  b=GetUIElement(1)
  59.  if b=true then
  60.   Call IniWriteValue(sf,so,"BootMulti",1)
  61.  else
  62.   Call IniWriteValue(sf,so,"BootMulti",0)
  63.  end if
  64.  
  65.  b=GetUIElement(2)
  66.  if b=true then
  67.   Call IniWriteValue(sf,so,"Network",1)
  68.  else
  69.   Call IniWriteValue(sf,so,"Network",0)
  70.  end if
  71.  
  72.  b=GetUIElement(3)
  73.  if b=true then
  74.   Call IniWriteValue(sf,so,"DisableLog",0)
  75.  else
  76.   Call IniWriteValue(sf,so,"DisableLog",1)
  77.  end if
  78.  
  79.  b=GetUIElement(4)
  80.  if b=true then
  81.   Call IniWriteValue(sf,so,"LoadTop",1)
  82.  else
  83.   Call IniWriteValue(sf,so,"LoadTop",0)
  84.  end if
  85.  
  86.  'b=GetUIElement(5)
  87.  'if b=true then
  88.  ' Call IniWriteValue(sf,so,"BootFailSafe",1)
  89.  'else
  90.  ' Call IniWriteValue(sf,so,"BootFailSafe",0)
  91.  'end if
  92.  
  93.  
  94.  Call Restart()
  95. End Sub
  96.  
  97. 'Called when the Plugin is about to be removed from memory
  98. Sub Plugin_Terminate
  99.  Call FileSetAttribute("C:\MSDOS.SYS","S+")
  100.  Call FileSetAttribute("C:\MSDOS.SYS","R+")
  101.  Call FileSetAttribute("C:\MSDOS.SYS","H+")
  102. End Sub
  103.